home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / storage / function / dasd / add / devtable.sy < prev    next >
Encoding:
Text File  |  1994-05-04  |  694 b   |  21 lines
  1. ********************************************
  2. ** DEVTABLE.SCR - GET DEVICETABLE FOR DRIVER
  3. ********************************************
  4. @THREAD DEVTABLE.L2
  5. @NEWALIAS DD DASDADD.GRA
  6. DD SET MODE=1
  7. DD DD_OPEN
  8. DD DD_GETDRIVERS
  9. DD RESPONSE $PROMPT="Type in driver to test(case sensitive): " \
  10.             $PAUSE=-1 $RESPONSE=DRVNAME
  11. DD SET $COMMAND=SET $ALIAS=DD
  12. DD MAKEIMPORT $FILENAME=SYSINFO.U1 $KWD=DRVNAME $VAL=!($(DRVNAME))
  13. DD MAKEIMPORT $FILENAME=SYSINFO2.U1 $ALIAS=D2
  14. DD DD_GETDEVICETABLE
  15. DD RESPONSE $PROMPT="Type the unit handle to test: " $RESPONSE=UNITHANDLE
  16. DD MAKEIMPORT $KWD=UNITHANDLE $VAL=$(UNITHANDLE) 
  17. DD MAKEIMPORT $FILENAME=SYSINFO.U1 $ALIAS=DD
  18. DD DD_CLOSE
  19.  
  20.  
  21.